home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / os20 / wb / toolmanager2_0.lha / ToolManager / Programmers / modula / ToolManagerL.def < prev    next >
Text File  |  1992-09-26  |  1KB  |  70 lines
  1. DEFINITION MODULE ToolManagerL{"toolmanager.library",0};
  2.  
  3.  
  4.  
  5. IMPORT D:ToolManagerD;
  6. IMPORT ED:ExecD;
  7. IMPORT R;
  8. IMPORT SYSTEM;
  9. IMPORT UtilityD;
  10.  
  11.  
  12.  
  13. TYPE
  14.   StrPtr=SYSTEM.ADDRESS;        (* dummy declaration to improve readability *)
  15.  
  16.  
  17.  
  18. VAR
  19.   toolmanagerVersion: INTEGER;
  20.   toolmanagerBase: ED.LibraryPtr;
  21.  
  22.  
  23.  
  24. (* AllocTMHandle -- Allocate a ToolManager handle *)
  25.  
  26. PROCEDURE AllocTMHandle(): D.TMHandlePtr; CODE -42;
  27.  
  28.  
  29.  
  30. (* ChangeTMObjectTagList -- Change the properties of a ToolManager object *)
  31.  
  32. PROCEDURE ChangeTMObjectTagList(
  33.             handle{R.A0}: D.TMHandlePtr;
  34.             object{R.A1}: StrPtr;
  35.             tags{R.A2}: UtilityD.TagItemPtr): BOOLEAN; CODE -66;
  36.  
  37.  
  38.  
  39. (* CreateTMObjectTagList -- Create a ToolManager object *)
  40.  
  41. PROCEDURE CreateTMObjectTagList(
  42.             handle{R.A0}: D.TMHandlePtr;
  43.             name{R.A1}: StrPtr;
  44.             type{R.D0}: LONGINT; (* D.TMObjType *)
  45.             tags{R.A2}: UtilityD.TagItemPtr): BOOLEAN; CODE -54;
  46.  
  47.  
  48.  
  49. (* DeleteTMObject -- Delete a ToolManager object *)
  50.  
  51. PROCEDURE DeleteTMObject(
  52.             handle{R.A0}: D.TMHandlePtr;
  53.             object{R.A1}: StrPtr): BOOLEAN; CODE -60;
  54.  
  55.  
  56.  
  57. (* FreeTMHandle -- Free a ToolManager handle *)
  58.  
  59. PROCEDURE FreeTMHandle(handle{R.A0}: D.TMHandlePtr); CODE -48;
  60.  
  61.  
  62.  
  63. (* QuitToolManager -- Send quit signal to ToolManager process *)
  64.  
  65. PROCEDURE QuitToolManager(); CODE -36;
  66.  
  67.  
  68.  
  69. END ToolManagerL.def
  70.